Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

0A~Z
'Prog "INTRO"
-1E~F
Int 21Ran#+1A
Int 7Ran#+1B
Int 21Ran#+1E
Int 7Ran#+1F
1V
-1Z
Lbl 2
ClrText
Int 21Ran#+1C
Int 7Ran#+1D
C=1D=1D+1D
C=2D=1D+1D
C=3D=1D+1D
Locate C,D,"*"
Z+1Z
Z=Vx10Goto 3
Lbl 1
Y+1Y
Locate A,B,""
Locate 1,1,Z
Prog "EX1"
A=EB=FGoto 6
E=CF=DZ-2Z
E=CF=DGoto 2
A=CB=DGoto 2
If Getkey=31
Then Goto 5
IfEnd
If Getkey=27
Then Locate A,B," "
A+1A
IfEnd
A>211A
If Getkey=38
Then Locate A,B," "
A-1A
IfEnd
A<121A
If Getkey=37
Then Locate A,B," "
B+1B
IfEnd
B>71B
If Getkey=28
Then Locate A,B," "
B-1B
IfEnd
B<17B
A=CB=DGoto 2
A=EB=FGoto 6
Goto 1
Lbl 5
Locate 7,4,"PAUSE"
If Getkey31
Then Goto 5
IfEnd
Locate 7,4," "
Goto 1
Lbl 3
ZYx10000X
Int XX
W+XW
Locate 3,3,"LEVEL COMPLETE"
Locate 4,4,"SCORE:"
Locate 4,5,"LEVEL:"
Locate 11,5,V
Locate 11,4,W
Z-1Z
V+1V
Lbl 4
If Getkey31
Then Goto 4
IfEnd
Goto 2
Lbl 6
ClrText
Locate 2,3,"EATEN BY BLACK HOLE"
ZYx5000X
Int XX
W+XW
Locate 4,4,"SCORE:"
Locate 11,4,W
Locate 4,5,"LEVEL:"
Locate 11,5,V
Dim List 3Q
Locate 4,6,"HISCORE:"
WList 3[(Dim List 3)-1]
SortA(List 3)
Dim List 3
List 3[]W
Locate 12,6,List 3[Q]
Lbl 7
If Getkey31
Then Goto 7
IfEnd